% Format for concert programs (an example in Appendix E)

\font\twelverm=amr10 at 12pt
\font\twelvebf=ambx10 at 12pt
\font\twelveit=amti10 at 12pt
\font\twelvesl=amsl10 at 12pt
\font\twelvemus=ami10 at 12pt

\font\eightrm=amr8
\font\eightbf=ambx8
\font\eightit=amti8
\font\eightsl=amsl8
\font\eightmus=ami8

\def\bigtype{\let\rm=\twelverm \let\bf=\twelvebf \let\it=\twelveit
  \let\sl=\twelvesl \let\mus=\twelvemus \baselineskip=14pt minus .5pt \rm}
\def\medtype{\let\rm=\tenrm \let\bf=\tenbf \let\it=\tenit
  \let\sl=\tensl \let\mus=\teni \baselineskip=12pt minus .5pt \rm}
\def\smalltype{\let\rm=\eightrm \let\bf=\eightbf \let\it=\eightit
  \let\sl=\eightsl \let\mus=\eightmus \baselineskip=9.5pt minus .5pt \rm}

\def\flat{\raise.2ex\hbox{\mus\char"5B}}
\def\sharp{\raise.4ex\hbox{\mus\char"5D}}
\let\,=\thinspace
\def\(#1){{\rm(}#1\/{\rm)}}

\hsize=4in
\nopagenumbers
\bigtype

\def\composition#1{\halign{\bf\quad##\hfil\cr
	\kern-1em#1\crcr}} % use \cr's if more than one line
\def\composer#1{\rightline{\bf#1}}
\def\movements#1{\halign{\quad\it##\hfil&&\qquad\it##\hfil\cr#1\crcr}}
\def\soloists#1{\centerline{\bf\vbox{\halign{##\hfil\cr#1\crcr}}}}

\def\tsaologo{\vbox{\bigtype\bf
    \line{\hrulefill}
    \kern-.5\baselineskip
    \line{\hrulefill\phantom{ THE ST. ANFORD ORCHESTRA }\hrulefill}
    \kern-.5\baselineskip
    \line{\hrulefill\hbox{ THE ST. ANFORD ORCHESTRA }\hrulefill}
    \kern-.5\baselineskip
    \line{\hrulefill\phantom{ R. J. Drofnats, Conductor }\hrulefill}
    \kern-.5\baselineskip
    \line{\hrulefill\hbox{ R. J. Drofnats, Conductor }\hrulefill}
    }}